home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / dbtext.dxr / 00035_Tool Box.ls < prev    next >
Encoding:
Text File  |  2000-01-18  |  2.0 KB  |  83 lines
  1. on SetTextMembers LibName
  2.   X = the number of castMembers of castLib LibName
  3.   repeat with rc = 1 to the number of castMembers of castLib LibName
  4.     xMember = member(rc, LibName)
  5.     if member(xMember).type = #field then
  6.       member(xMember).boxType = #fixed
  7.       member(xMember).editable = 0
  8.     end if
  9.   end repeat
  10.   beep(2)
  11. end
  12.  
  13. on tellloc startsprite, endSprite
  14.   if voidp(endSprite) then
  15.     endSprite = startsprite
  16.   end if
  17.   repeat with rc = startsprite to endSprite
  18.     if the memberNum of sprite rc = 0 then
  19.       put "‚Ä¢‚Ä¢ Blank"
  20.       next repeat
  21.     end if
  22.     put rc, member(the memberNum of sprite rc).name, the loc of sprite rc
  23.   end repeat
  24. end
  25.  
  26. on tellrect startsprite, endSprite
  27.   if voidp(endSprite) then
  28.     endSprite = startsprite
  29.   end if
  30.   repeat with rc = startsprite to endSprite
  31.     if the memberNum of sprite rc = 0 then
  32.       put "‚Ä¢‚Ä¢ Blank"
  33.       next repeat
  34.     end if
  35.     put rc, member(the memberNum of sprite rc).name, the rect of sprite rc
  36.   end repeat
  37. end
  38.  
  39. on Jat p1, p2, p3, p4, p5, p6
  40.   put p1, p2, p3, p4, p5, p6
  41. end
  42.  
  43. on createDummyText
  44.   xText = EMPTY
  45.   repeat with rc = 1 to 555
  46.     xText = xText && rc && "jeep"
  47.   end repeat
  48.   member("jjj", 1).text = xText
  49. end
  50.  
  51. on space xSprite
  52.   xText = member(171, "Text").text
  53.   repeat with rc = 1 to the number of chars in xText
  54.     if char rc to rc + 1 of xText = "  " then
  55.       beginSpace = rc
  56.       xChar = rc
  57.       repeat while char rc of xText = " "
  58.         rc = rc + 1
  59.       end repeat
  60.       endSpace = rc - 1
  61.     end if
  62.   end repeat
  63.   median = beginSpace + integer((endSpace - beginSpace) / 2)
  64.   put median, charPosToLoc(member(171, "Text"), median)
  65. end
  66.  
  67. on jttTruncatetoEight xText
  68.   legalChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ01234567890"
  69.   MaxCount = length(xText)
  70.   repeat with rc = 1 to MaxCount
  71.     if not (legalChars contains char rc of xText) then
  72.       put " " into char rc of xText
  73.     end if
  74.   end repeat
  75.   repeat while xText contains " "
  76.     CharNum = offset(" ", xText)
  77.     if CharNum > 0 then
  78.       delete char CharNum of xText
  79.     end if
  80.   end repeat
  81.   return char 1 to 8 of xText
  82. end
  83.